home *** CD-ROM | disk | FTP | other *** search
/ Aminet 2 / Aminet AMIGA CDROM (1994)(Walnut Creek)[Feb 1994][W.O. 44790-1].iso / Aminet / misc / amag / sh9301c.lha / Oberon(S.67) / Listing8.mod < prev    next >
Text File  |  1993-01-22  |  435b  |  34 lines
  1. MODULE Raetsel;
  2. IMPORT
  3.   io;
  4. VAR
  5.   a: INTEGER;
  6. PROCEDURE Ping (VAR x: INTEGER);
  7. BEGIN
  8.   DEC (x, 10);
  9. END Ping;
  10. PROCEDURE Pong (y: INTEGER);
  11. BEGIN
  12.   y := y * 2;
  13. END Pong;
  14. PROCEDURE Zoom;
  15. BEGIN
  16.   INC (a, 22);
  17. END Zoom;
  18. PROCEDURE Boom;
  19. VAR
  20.   a: ARRAY 10 OF CHAR;
  21. BEGIN
  22.   a := "Hallo!";
  23. END Boom;
  24. BEGIN
  25.   a := 20;
  26.   Zoom;
  27.   Boom;
  28.   Pong (a);
  29.   Ping (a);
  30.   io.WriteString ("a ist jetzt: ");
  31.   io.WriteInt (a, 2);
  32.   io.WriteLn;
  33. END Raetsel.
  34.